Use Windows.pkg
Use DFClient.pkg
Use dfTable.pkg
Use cCostcodeDataDictionary.dd

Deferred_View Activate_oCostCodeSetup for ;
Object oCostCodeSetup is a dbView
    Set Border_Style to Border_Thick
    Set Size to 200 453
    Set Location to 4 4
    Set Label to "Cost Code Setup"
    Set Icon to "doctor_plus.ico"
    
    Object oCOSTCODE_DD is a cCostcodeDataDictionary
    End_Object

    Set Main_DD to oCOSTCODE_DD
    Set Server to oCOSTCODE_DD

    Object oCostCodeGrid is a cDbCJGrid
        Set Size to 188 423
        Set Location to 4 15
        Set peAnchors to anAll
        Set Ordering to index.1
        
        Object oCOSTCODE_COST_CODE is a cDbCJGridColumn
            Entry_Item COSTCODE.COST_CODE
            Set piWidth to 99
            Set psCaption to "Cost Code"
        End_Object
        
        Object oCOSTCODE_DESC is a cDbCJGridColumn
            Entry_Item COSTCODE.DESC
            Set piWidth to 308
            Set psCaption to "Description"
        End_Object
        
        Object oCOSTCODE_PRICE is a cDbCJGridColumn
            Entry_Item COSTCODE.PRICE
            Set piWidth to 107
            Set psCaption to "Price"
        End_Object
        
        Object oCOSTCODE_DISCONTINUE is a cDbCJGridColumn
            Entry_Item COSTCODE.DISCONTINUE
            Set piWidth to 120
            Set psCaption to "Discontinue (Y or N)"
        End_Object
    End_Object

Cd_End_Object
